﻿
Public Module _gc
    Public Sub waitfor_gc_collect()
        For i As Int32 = 0 To 2
            GC.Collect()
            GC.WaitForPendingFinalizers()
        Next
    End Sub

    Public Sub gc_trigger()
        While True
            waitfor_gc_collect()
            sleep_seconds(10)
        End While
    End Sub
End Module
